home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / PANSI.EX1 < prev    next >
Text File  |  1992-08-09  |  520b  |  29 lines
  1. 'PANSI2.BAS
  2. 'Prints an ANSI file to the screen.
  3. 'Set Filename$ to the pathname of an ANSI file.
  4. 'Uses PANSI.BAS
  5. DEFINT A-Z
  6. '$INCLUDE: 'pansi.bi'
  7.  
  8. FileName$ = "pansi.doc"
  9.  
  10. SCREEN 0
  11. WIDTH 80, 25
  12. LOCATE , , 1
  13.  
  14. Init
  15. SetWindow 1, 1, 80, 25
  16. ClearScreen
  17. CursorControl 1
  18.  
  19. OPEN FileName$ FOR BINARY AS #1
  20. B$ = STRING$(10000, 0)          'uses a 10,000 byte buffer
  21. FOR A = 1 TO LOF(1) \ 10000
  22.     GET #1, , B$
  23.     PrintString B$
  24. NEXT
  25. B$ = STRING$(LOF(1) MOD 10000, 0)
  26. GET #1, , B$
  27. PrintString B$
  28. CLOSE
  29.